1 A$ = "ANY SHORT STRING": SPEED= 200: HOME :A = LEN(A$):X = 11:U = 11: HTAB U: VTAB U: PRINT A$: FOR Y = 1 TO A:B$ = MID$ (A$,Y,1): ON Y/2 = INT(Y/2) GOTO 2: FOR Z = U TO 23: HTAB X: VTAB Z: PRINT B$: NEXT : FOR Z = U TO 23: HTAB X: VTAB Z: PRINT " ": NEXT : HTAB X: VTAB U:X = X +1: NEXT
2 FOR Z = U TO 1 STEP -1: HTAB X: VTAB Z: PRINT B$: NEXT : FOR Z = U TO 1 STEP -1: HTAB X: VTAB Z: PRINT " ": NEXT : HTAB X: VTAB U:X = X +1: NEXT : SPEED= 225:B = 11: FOR Y = 1 TO A:B$ = MID$ (A$,Y,1):B = B +1: FOR A = 39 TO B STEP -1: VTAB U: HTAB A: PRINT B$;" ": NEXT : NEXT : SPEED= 255: PRINT CHR$(4);"CATALOG"